home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / gnustuff / tos / updates / update19.zoo / gcc2.1 / gcc-21.diff < prev    next >
Encoding:
Text File  |  1992-03-28  |  54.3 KB  |  2,066 lines
  1. *** 1.3    1992/03/27 21:49:26
  2. --- c-aux-info.c    1992/03/28 01:56:54
  3. ***************
  4. *** 60,66 ****
  5.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  6.      the few exceptions to the general rule here.  */
  7.   
  8. ! #if !(defined (USG) || defined (VMS))
  9.   extern char *getwd ();
  10.   #define getcwd(buf,len) getwd(buf)
  11.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  12. --- 60,66 ----
  13.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  14.      the few exceptions to the general rule here.  */
  15.   
  16. ! #if !(defined (USG) || defined (VMS) || defined(CROSSHPUX))
  17.   extern char *getwd ();
  18.   #define getcwd(buf,len) getwd(buf)
  19.   #define GUESSPATHLEN (MAXPATHLEN + 1)
  20. *** 1.3    1992/03/27 21:49:26
  21. --- c-decl.c    1992/03/28 01:58:02
  22. ***************
  23. *** 5388,5393 ****
  24. --- 5388,5395 ----
  25.   
  26.     expand_function_start (fndecl, 0);
  27.   
  28. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  29. +   /* we will only need this in cp-decl.c, not here */
  30.     /* If this function is `main', emit a call to `__main'
  31.        to run global initializers, etc.  */
  32.     if (DECL_NAME (fndecl)
  33. ***************
  34. *** 5394,5399 ****
  35. --- 5396,5402 ----
  36.         && strcmp (IDENTIFIER_POINTER (DECL_NAME (fndecl)), "main") == 0
  37.         && DECL_CONTEXT (fndecl) == NULL_TREE)
  38.       expand_main_function ();
  39. + #endif
  40.   }
  41.   
  42.   /* SPECPARMS is an identifier list--a chain of TREE_LIST nodes
  43. *** 1.3    1992/03/27 21:49:26
  44. --- cccp.c    1992/03/28 01:53:14
  45. ***************
  46. *** 58,63 ****
  47. --- 58,65 ----
  48.   #undef bzero
  49.   #undef bcmp
  50.   
  51. + #ifndef atarist
  52. + 
  53.   #include <sys/types.h>
  54.   #include <sys/stat.h>
  55.   #include <ctype.h>
  56. ***************
  57. *** 66,85 ****
  58.   
  59.   #ifndef VMS
  60.   #include <sys/file.h>
  61. ! #ifndef USG
  62.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  63.   #include <sys/resource.h>
  64.   #else
  65.   #define index strchr
  66.   #define rindex strrchr
  67.   #include <time.h>
  68.   #include <fcntl.h>
  69. ! #endif /* USG */
  70.   #endif /* not VMS */
  71. -   
  72.   extern char *index ();
  73.   extern char *rindex ();
  74.   
  75.   /* VMS-specific definitions */
  76.   #ifdef VMS
  77.   #include <time.h>
  78. --- 68,105 ----
  79.   
  80.   #ifndef VMS
  81.   #include <sys/file.h>
  82. ! #if (!(defined(USG) || defined(atariminix)))
  83.   #include <sys/time.h>        /* for __DATE__ and __TIME__ */
  84.   #include <sys/resource.h>
  85.   #else
  86. + #ifndef atariminix
  87.   #define index strchr
  88.   #define rindex strrchr
  89. + #endif
  90.   #include <time.h>
  91.   #include <fcntl.h>
  92. ! #endif /* USG or atariminix */
  93.   #endif /* not VMS */
  94.   extern char *index ();
  95.   extern char *rindex ();
  96.   
  97. + #else    /* atarist */
  98. + 
  99. + #include <ctype.h>
  100. + #include <stdio.h>
  101. + #include <types.h>
  102. + #include <stat.h>
  103. + #include <file.h>
  104. + #include <time.h>
  105. + #include <string.h>
  106. + #include "stddef.h"
  107. + 
  108. + long _stksize = -1L;    /* want big stack cause include files
  109. +                    get alloca'ed there */
  110. + 
  111. + #endif        /* atarist */
  112. +   
  113. + 
  114.   /* VMS-specific definitions */
  115.   #ifdef VMS
  116.   #include <time.h>
  117. ***************
  118. *** 852,858 ****
  119. --- 872,932 ----
  120.   /* Nonzero means -I- has been seen,
  121.      so don't look for #include "foo" the source-file directory.  */
  122.   static int ignore_srcdir;
  123. +  
  124. + #ifdef atarist
  125. + /* a little frobule to filter incoming file data */
  126. + int eunuchs_read(f, buf, size)
  127. + int f;
  128. + char * buf;
  129. + int size;
  130. + {
  131. +     char local_buf[1024];
  132. +     register int result_size;
  133. +     register char * local_bufp, * target_bufp;
  134. +     register int buf_size, size_read;
  135. +     
  136. +     for (result_size = 0, target_bufp = buf ; size > 0 ; size -= 1024)
  137. +     { /* do a buffer */
  138. +     if (size > 1024)
  139. +         buf_size = 1024;
  140. +     else
  141. +         buf_size = size;
  142. +     size_read = read(f, &local_buf, buf_size);
  143. +     for (local_bufp = (char * ) &local_buf; size_read > 0 ; size_read--)
  144. +         if (*local_bufp == '\r')
  145. +         local_bufp++;
  146. +         else
  147. +         {
  148. +         *target_bufp++ = *local_bufp++;
  149. +         result_size++;
  150. +         }
  151. +     }
  152. +     return(result_size);
  153. + }
  154. + 
  155. + /* the following dingus is used in place of some calls to bcopy,
  156. +    to ensure that backslashes get properly slashified when getting
  157. +    shoved into strings.  Note that it returns the new pointer!!
  158. +    There ought to be a better way... */
  159. + 
  160. + U_CHAR * slashifying_bcopy(from_buf, to_buf, nbytes)
  161. + U_CHAR * from_buf, * to_buf;
  162. + int nbytes;
  163. + {
  164. +   for ( ; nbytes > 0 ; )
  165. +     {
  166. +     if(*from_buf == '\\')
  167. +         *to_buf++ = '\\';
  168. +     *to_buf++ = *from_buf++;
  169. +     nbytes--;
  170. +     }
  171. +   return(to_buf);
  172. + }
  173. + #define read(a, b, c) eunuchs_read(a, b, c)
  174. + 
  175. + #endif        /* atarist */
  176.   
  177. + #ifndef atarist
  178.   /* Handler for SIGPIPE.  */
  179.   
  180.   static void
  181. ***************
  182. *** 862,867 ****
  183. --- 936,942 ----
  184.   {
  185.     fatal ("output pipe has been closed");
  186.   }
  187. + #endif /* atarist */
  188.   
  189.   int
  190.   main (argc, argv)
  191. ***************
  192. *** 896,901 ****
  193. --- 971,981 ----
  194.     /* Target-name to write with the dependency information.  */
  195.     char *deps_target = 0;
  196.   
  197. + #ifdef atarist
  198. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  199. + /*  _malloczero(1); */     /* zero mallocs by default */
  200. + #endif  
  201. + 
  202.   #ifdef RLIMIT_STACK
  203.     /* Get rid of any avoidable limit on stack size.  */
  204.     {
  205. ***************
  206. *** 944,949 ****
  207. --- 1024,1030 ----
  208.     signal (SIGPIPE, pipe_closed);
  209.   #endif
  210.   
  211. + #ifndef atarist
  212.     for (i = 0; include_defaults[i].fname; i++)
  213.       max_include_len = MAX (max_include_len,
  214.                  strlen (include_defaults[i].fname));
  215. ***************
  216. *** 951,957 ****
  217.   #ifdef VMS
  218.     max_include_len += 10;
  219.   #endif
  220. ! 
  221.     bzero (pend_files, argc * sizeof (char *));
  222.     bzero (pend_defs, argc * sizeof (char *));
  223.     bzero (pend_undefs, argc * sizeof (char *));
  224. --- 1032,1041 ----
  225.   #ifdef VMS
  226.     max_include_len += 10;
  227.   #endif
  228. ! #else
  229. !   max_include_len = 80;    /* arbitrary value */
  230. ! #endif
  231. !   
  232.     bzero (pend_files, argc * sizeof (char *));
  233.     bzero (pend_defs, argc * sizeof (char *));
  234.     bzero (pend_undefs, argc * sizeof (char *));
  235. ***************
  236. *** 1154,1163 ****
  237. --- 1238,1253 ----
  238.       break;
  239.   
  240.         case 'v':
  241. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  242. + #include "PatchLev.h"
  243. +     fprintf (stderr, "GNU CPP-atariST version %s Patchlevel %s",
  244. +          version_string, PatchLevel);
  245. + #else
  246.       fprintf (stderr, "GNU CPP version %s", version_string);
  247.   #ifdef TARGET_VERSION
  248.       TARGET_VERSION;
  249.   #endif
  250. + #endif
  251.       fprintf (stderr, "\n");
  252.       break;
  253.   
  254. ***************
  255. *** 1291,1296 ****
  256. --- 1381,1387 ----
  257.       }
  258.     }
  259.   
  260. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  261.     /* Add dirs from CPATH after dirs from -I.  */
  262.     /* There seems to be confusion about what CPATH should do,
  263.        so for the moment it is not documented.  */
  264. ***************
  265. *** 1300,1305 ****
  266. --- 1391,1397 ----
  267.     p = (char *) getenv ("CPATH");
  268.     if (p != 0 && ! no_standard_includes)
  269.       path_include (p);
  270. + #endif
  271.   
  272.     /* Now that dollars_in_ident is known, initialize is_idchar.  */
  273.     initialize_char_syntax ();
  274. ***************
  275. *** 1423,1430 ****
  276.     { /* read the appropriate environment variable and if it exists
  277.          replace include_defaults with the listed path. */
  278.       char *epath = 0;
  279.       switch ((objc << 1) + cplusplus)
  280. !       {
  281.         case 0:
  282.       epath = getenv ("C_INCLUDE_PATH");
  283.       break;
  284. --- 1515,1560 ----
  285.     { /* read the appropriate environment variable and if it exists
  286.          replace include_defaults with the listed path. */
  287.       char *epath = 0;
  288. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  289. +     char *e1 = getenv("GNUINC"), *e2 = getenv("GNULIB"),
  290. +          *e3 = getenv("GXXINC");
  291. + 
  292. +     if(cplusplus)
  293. +     {
  294. +     if(e3)
  295. +         epath = strcpy(alloca(strlen(e3)+1), e3);
  296. +     }
  297. +     if(e1)
  298. +     {
  299. +       if(epath)
  300. +     epath = strcat(
  301. + #ifdef atarist
  302. +      strcat(strcpy(alloca(strlen(epath)+strlen(e1)+2), epath), ","),
  303. +                e1);
  304. + #else
  305. +      strcat(strcpy(alloca(strlen(epath)+strlen(e1)+2), epath), ":"),
  306. +                e1);
  307. + #endif
  308. +       else
  309. +     epath = strcpy(alloca(strlen(e1)+1), e1);
  310. +     }
  311. +     if(e2)
  312. +     {
  313. +       if(epath)
  314. +     epath = strcat(
  315. + #ifdef atarist
  316. +      strcat(strcpy(alloca(strlen(epath)+strlen(e2)+2), epath), ","),
  317. +                e2);
  318. + #else
  319. +      strcat(strcpy(alloca(strlen(epath)+strlen(e2)+2), epath), ":"),
  320. +                e2);
  321. + #endif
  322. +       else
  323. +     epath = strcpy(alloca(strlen(e2)+1), e2);
  324. +     }
  325. + #else
  326.       switch ((objc << 1) + cplusplus)
  327. !     {
  328.         case 0:
  329.       epath = getenv ("C_INCLUDE_PATH");
  330.       break;
  331. ***************
  332. *** 1437,1443 ****
  333.         case 3:
  334.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  335.       break;
  336. !       }
  337.       /* If the environment var for this language is set,
  338.          add to the default list of include directories.  */
  339.       if (epath) {
  340. --- 1567,1575 ----
  341.         case 3:
  342.       epath = getenv ("OBJCPLUS_INCLUDE_PATH");
  343.       break;
  344. !     }
  345. ! #endif
  346. !     
  347.       /* If the environment var for this language is set,
  348.          add to the default list of include directories.  */
  349.       if (epath) {
  350. ***************
  351. *** 1446,1452 ****
  352. --- 1578,1588 ----
  353.         char *startp, *endp;
  354.   
  355.         for (num_dirs = 1, startp = epath; *startp; startp++)
  356. + #ifdef atarist
  357. +     if ((*startp == ';') || (*startp == ','))
  358. + #else
  359.       if (*startp == ':')
  360. + #endif
  361.         num_dirs++;
  362.         include_defaults
  363.       = (struct default_include *) xmalloc ((num_dirs
  364. ***************
  365. *** 1456,1461 ****
  366. --- 1592,1598 ----
  367.         num_dirs = 0;
  368.         while (1) {
  369.           /* Handle cases like c:/usr/lib:d:/gcc/lib */
  370. + #ifndef atarist
  371.           if ((*endp == ':'
  372.   #ifdef __MSDOS__
  373.            && (endp-startp != 1 || !isalpha (*startp)))
  374. ***************
  375. *** 1462,1467 ****
  376. --- 1599,1607 ----
  377.   #endif
  378.            )
  379.               || (*endp == 0)) {
  380. + #else
  381. +     if ((*endp == ';') || (*endp == ',') || (*endp == '\0')) {
  382. + #endif
  383.         strncpy (nstore, startp, endp-startp);
  384.         if (endp == startp)
  385.           strcpy (nstore, ".");
  386. ***************
  387. *** 1488,1495 ****
  388. --- 1628,1643 ----
  389.        tack on the standard include file dirs to the specified list */
  390.     if (!no_standard_includes) {
  391.       struct default_include *p = include_defaults;
  392. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  393. +     char *specd_prefix = NULL;
  394. + #else
  395.       char *specd_prefix = getenv ("GCC_EXEC_PREFIX");
  396. + #endif
  397. + #ifdef GCC_INCLUDE_DIR
  398.       char *default_prefix = savestring (GCC_INCLUDE_DIR);
  399. + #else
  400. +     char *default_prefix = savestring ("./");
  401. + #endif
  402.       int default_len = 0;
  403.       /* Remove the `include' from /usr/local/lib/gcc.../include.  */
  404.       if (!strcmp (default_prefix + strlen (default_prefix) - 8, "/include")) {
  405. ***************
  406. *** 1496,1501 ****
  407. --- 1644,1655 ----
  408.         default_len = strlen (default_prefix) - 7;
  409.         default_prefix[default_len] = 0;
  410.       }
  411. + #ifdef atarist
  412. +     else if (!strcmp (default_prefix + strlen (default_prefix) - 8, "\\include")) {
  413. +       default_len = strlen (default_prefix) - 7;
  414. +       default_prefix[default_len] = 0;
  415. +     }
  416. + #endif
  417.       /* Search "translated" versions of GNU directories.
  418.          These have /usr/local/lib/gcc... replaced by specd_prefix.  */
  419.       if (specd_prefix != 0 && default_len != 0)
  420. ***************
  421. *** 1650,1656 ****
  422. --- 1804,1814 ----
  423.         char *p1 = p;
  424.         /* Discard all directory prefixes from P.  */
  425.         while (*p1) {
  426. + #ifdef atarist
  427. +     if ((*p1 == '/') || (*p1 == '\\'))
  428. + #else
  429.       if (*p1 == '/')
  430. + #endif
  431.         p = p1 + 1;
  432.       p1++;
  433.         }
  434. ***************
  435. *** 1810,1815 ****
  436. --- 1968,1974 ----
  437.     return 0;
  438.   }
  439.   
  440. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  441.   /* Given a colon-separated list of file names PATH,
  442.      add all the names to the search path for include files.  */
  443.   
  444. ***************
  445. *** 1869,1874 ****
  446. --- 2028,2034 ----
  447.         p++;
  448.       }
  449.   }
  450. + #endif
  451.   
  452.   /* Pre-C-Preprocessor to translate ANSI trigraph idiocy in BUF
  453.      before main CCCP processing.  Name `pcp' is also in honor of the
  454. ***************
  455. *** 3453,3460 ****
  456. --- 3613,3629 ----
  457.   
  458.         if (string)
  459.       {
  460. + #ifndef atarist
  461.         buf = (char *) alloca (3 + strlen (string));
  462.         sprintf (buf, "\"%s\"", string);
  463. + #else
  464. +           buf = (char *) alloca (16 + strlen (string));
  465. +           {
  466. +           char *tbuf = (char *) alloca (16 + strlen (string));
  467. +           (void) slashifying_bcopy(string, tbuf, strlen(string)+1);
  468. +           sprintf (buf, "\"%s\"", tbuf);
  469. +           }
  470. + #endif /* atarist */
  471.       }
  472.         else
  473.       buf = "\"\"";
  474. ***************
  475. *** 3657,3663 ****
  476. --- 3826,3837 ----
  477.           dsp[0].next = search_start;
  478.           search_start = dsp;
  479.   #ifndef VMS
  480. + #ifdef atarist
  481. +         if((ep = rindex(nam, '\\')) == NULL)
  482. +         ep = rindex(nam, '/');
  483. + #else
  484.           ep = rindex (nam, '/');
  485. + #endif
  486.   #else                /* VMS */
  487.           ep = rindex (nam, ']');
  488.           if (ep == NULL) ep = rindex (nam, '>');
  489. ***************
  490. *** 3733,3741 ****
  491. --- 3907,3929 ----
  492.   
  493.     /* If specified file name is absolute, just open it.  */
  494.   
  495. + #ifdef atarist
  496. +   if ((*fbeg == '\\') || (*fbeg == '/')) {
  497. +     if(fbeg[2] == ':')
  498. +     { /* allow "\D:\xxx" */
  499. +         strncpy (fname, fbeg+1, flen-1);
  500. +         fname[flen-1] = 0;
  501. +     }
  502. +     else
  503. +     {  /* allow "\lib\xxx" == "\currentdrive:\lib\xxx" */
  504. +         strncpy (fname, fbeg, flen);
  505. +         fname[flen] = 0;
  506. +     }
  507. + #else
  508.     if (*fbeg == '/') {
  509.       strncpy (fname, fbeg, flen);
  510.       fname[flen] = 0;
  511. + #endif
  512.       if (lookup_include (fname))
  513.         return 0;
  514.       if (importing)
  515. ***************
  516. *** 3756,3762 ****
  517. --- 3944,3954 ----
  518.       if (searchptr->fname[0] == 0)
  519.         continue;
  520.       strcpy (fname, searchptr->fname);
  521. + #ifdef atarist
  522. +     strcat (fname, "\\");
  523. + #else
  524.       strcat (fname, "/");
  525. + #endif
  526.       fname[strlen (fname) + flen] = 0;
  527.         } else {
  528.       fname[0] = 0;
  529. ***************
  530. *** 6675,6682 ****
  531. --- 6867,6878 ----
  532.     check_expand (op, len + 1);
  533.     if (op->bufp > op->buf && op->bufp[-1] != '\n')
  534.       *op->bufp++ = '\n';
  535. + #ifdef atarist
  536. +   op->bufp = slashifying_bcopy (line_cmd_buf, op->bufp, len);
  537. + #else
  538.     bcopy (line_cmd_buf, op->bufp, len);
  539.     op->bufp += len;
  540. + #endif
  541.     op->lineno = ip->lineno;
  542.   }
  543.   
  544. ***************
  545. *** 8247,8252 ****
  546. --- 8443,8449 ----
  547.     deps_buffer[deps_size] = 0;
  548.   }
  549.   
  550. + #if (!(defined(atarist) || defined(atariminix)))
  551.   #if defined(USG) || defined(VMS)
  552.   #ifndef BSTRING
  553.   
  554. ***************
  555. *** 8314,8320 ****
  556.   }
  557.   #endif /* not BSTRING */
  558.   #endif /* USG or VMS */
  559. ! 
  560.   
  561.   static void
  562.   fatal (str, arg)
  563. --- 8511,8517 ----
  564.   }
  565.   #endif /* not BSTRING */
  566.   #endif /* USG or VMS */
  567. ! #endif /* any atari */
  568.   
  569.   static void
  570.   fatal (str, arg)
  571. *** 1.3    1992/03/27 21:49:26
  572. --- cp-tree.c    1992/03/28 01:50:21
  573. ***************
  574. *** 1579,1584 ****
  575. --- 1579,1585 ----
  576.     print_class_statistics ();
  577.   }
  578.   
  579. + #ifndef atarist
  580.   /* This is used by the `assert' macro.  It is provided in libgcc.a,
  581.      which `cc' doesn't know how to link.  */
  582.   void
  583. ***************
  584. *** 1599,1604 ****
  585. --- 1600,1606 ----
  586.     fflush (stderr);
  587.     abort ();
  588.   }
  589. + #endif
  590.   
  591.   /* Return, as an INTEGER_CST node, the number of elements for
  592.      TYPE (which is an ARRAY_TYPE).  This counts only elements of the top array. */
  593. *** 1.3    1992/03/27 21:49:26
  594. --- dbxout.c    1992/03/28 02:47:32
  595. ***************
  596. *** 138,143 ****
  597. --- 138,146 ----
  598.   #if defined (USG) || defined (NO_STAB_H)
  599.   #include "gstab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  600.   #else
  601. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  602. + #include "astab.h"
  603. + #else
  604.   #include <stab.h>  /* On BSD, use the system's stab.h.  */
  605.   
  606.   /* This is a GNU extension we need to reference in this file.  */
  607. ***************
  608. *** 145,150 ****
  609. --- 148,154 ----
  610.   #define N_CATCH 0x54
  611.   #endif
  612.   #endif /* not USG */
  613. + #endif
  614.   
  615.   #ifdef __GNU_STAB__
  616.   #define STAB_CODE_TYPE enum __stab_debug_code
  617. ***************
  618. *** 400,407 ****
  619. --- 404,417 ----
  620.   #ifdef DBX_OUTPUT_MAIN_SOURCE_DIRECTORY
  621.         DBX_OUTPUT_MAIN_SOURCE_DIRECTORY (asmfile, cwd);
  622.   #else /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
  623. + #ifndef atarist
  624.         fprintf (asmfile, "%s \"%s/\",%d,0,0,%s\n", ASM_STABS_OP,
  625.              cwd, N_SO, <ext_label_name[1]);
  626. + #else
  627. +     fprintf (asmfile, "%s \"", ASM_STABS_OP);
  628. +     atari_output_filename(asmfile, cwd);
  629. +     fprintf (asmfile, "\\\\\",%d,0,0,%s\n", N_SO, <ext_label_name[1]);
  630. + #endif
  631.   #endif /* no DBX_OUTPUT_MAIN_SOURCE_DIRECTORY */
  632.       }
  633.       }
  634. ***************
  635. *** 414,421 ****
  636. --- 424,437 ----
  637.     /* We include outputting `Ltext:' here,
  638.        because that gives you a way to override it.  */
  639.     /* Used to put `Ltext:' before the reference, but that loses on sun 4.  */
  640. + #ifndef atarist
  641.     fprintf (asmfile, "%s \"%s\",%d,0,0,%s\n", ASM_STABS_OP, input_file_name,
  642.          N_SO, <ext_label_name[1]);
  643. + #else
  644. +   fprintf (asmfile, "%s \"", ASM_STABS_OP);
  645. +   atari_output_filename(asmfile, input_file_name);
  646. +   fprintf(asmfile, "\",%d,0,0,%s\n", N_SO, <ext_label_name[1]);
  647. + #endif
  648.     text_section ();
  649.     ASM_OUTPUT_INTERNAL_LABEL (asmfile, "Ltext", 0);
  650.   #endif /* no DBX_OUTPUT_MAIN_SOURCE_FILENAME */
  651. ***************
  652. *** 481,488 ****
  653. --- 497,510 ----
  654.         DBX_OUTPUT_SOURCE_FILENAME (file, filename);
  655.   #else
  656.         ASM_GENERATE_INTERNAL_LABEL (ltext_label_name, "Ltext", 0);
  657. + #ifndef atarist
  658.         fprintf (file, "%s \"%s\",%d,0,0,%s\n", ASM_STABS_OP,
  659.              filename, N_SOL, <ext_label_name[1]);
  660. + #else
  661. +       fprintf (file, "%s \"", ASM_STABS_OP);
  662. +       atari_output_filename(file, filename);
  663. +       fprintf (file, "\",%d,0,0,%s\n", N_SOL, <ext_label_name[1]);
  664. + #endif
  665.   #endif
  666.         lastfile = filename;
  667.       }
  668. *** 1.3    1992/03/27 21:49:26
  669. --- final.c    1992/03/28 02:02:34
  670. ***************
  671. *** 67,74 ****
  672. --- 67,78 ----
  673.   #if defined (USG) || defined (NO_STAB_H)
  674.   #include "gstab.h"  /* If doing DBX on sysV, use our own stab.h.  */
  675.   #else
  676. + #if defined(CROSSATARI) || defined(atarist) || defined(atariminix)
  677. + #include "astab.h"
  678. + #else
  679.   #include <stab.h>  /* On BSD, use the system's stab.h.  */
  680.   #endif /* not USG */
  681. + #endif /* not atari */
  682.   #endif /* DBX_DEBUGGING_INFO || XCOFF_DEBUGGING_INFO */
  683.   
  684.   #ifdef XCOFF_DEBUGGING_INFO
  685. *** 1.4    1992/03/27 21:49:26
  686. --- gcc.c    1992/03/28 03:53:11
  687. ***************
  688. *** 30,35 ****
  689. --- 30,44 ----
  690.   Once it knows which kind of compilation to perform, the procedure for
  691.   compilation is specified by a string called a "spec".  */
  692.   
  693. + #ifdef CROSSATARI
  694. + #ifdef atarist
  695. + #undef atarist
  696. + #endif
  697. + #ifdef atariminix
  698. + #undef atariminix
  699. + #endif
  700. + #endif
  701. +   
  702.   #include <stdio.h>
  703.   #include <sys/types.h>
  704.   #include <ctype.h>
  705. ***************
  706. *** 36,47 ****
  707.   #include <signal.h>
  708.   #include <sys/file.h>
  709.   #include <sys/stat.h>
  710.   
  711.   #include "config.h"
  712.   #include "obstack.h"
  713.   #include "gvarargs.h"
  714.   
  715. ! #ifdef USG
  716.   #ifndef R_OK
  717.   #define R_OK 4
  718.   #define W_OK 2
  719. --- 45,59 ----
  720.   #include <signal.h>
  721.   #include <sys/file.h>
  722.   #include <sys/stat.h>
  723. + #ifdef CROSSATARI
  724. + #include <ctype.h>
  725. + #endif
  726.   
  727.   #include "config.h"
  728.   #include "obstack.h"
  729.   #include "gvarargs.h"
  730.   
  731. ! #if (defined(USG) || defined(atariminix))
  732.   #ifndef R_OK
  733.   #define R_OK 4
  734.   #define W_OK 2
  735. ***************
  736. *** 78,83 ****
  737. --- 90,102 ----
  738.   #endif
  739.   #endif
  740.   
  741. + #ifdef atarist
  742. + #include <osbind.h>
  743. + #include <ctype.h>
  744. + #include <fcntl.h>        /* fgth, for redirection of stderr */
  745. + long _stksize = 8192;
  746. + #endif
  747. + 
  748.   #define obstack_chunk_alloc xmalloc
  749.   #define obstack_chunk_free free
  750.   
  751. ***************
  752. *** 129,135 ****
  753. --- 148,156 ----
  754.      pass the compiler in building the list of pointers to constructors
  755.      and destructors.  */
  756.   
  757. + #if (!(defined(CROSSATARI) || defined(atarist)))
  758.   static struct obstack collect_obstack;
  759. + #endif
  760.   
  761.   extern char *version_string;
  762.   
  763. ***************
  764. *** 401,406 ****
  765. --- 422,430 ----
  766.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  767.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  768.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  769. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  770. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  771. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  772.           %{traditional-cpp:-traditional}\
  773.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  774.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.i}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  775. ***************
  776. *** 411,417 ****
  777.              %{aux-info*}\
  778.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  779.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  780. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  781.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  782.                         %{!pipe:%g.s} %A\n }}}}"},
  783.     {"-",
  784. --- 435,441 ----
  785.              %{aux-info*}\
  786.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  787.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  788. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  789.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  790.                         %{!pipe:%g.s} %A\n }}}}"},
  791.     {"-",
  792. ***************
  793. *** 421,426 ****
  794. --- 445,453 ----
  795.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  796.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  797.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  798. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  799. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  800. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  801.           %{traditional-cpp:-traditional}\
  802.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  803.           %i %W{o*}}\
  804. ***************
  805. *** 433,438 ****
  806. --- 460,468 ----
  807.           -undef -D__OBJC__ -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  808.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  809.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  810. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  811. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  812. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  813.           %{traditional-cpp:-traditional}\
  814.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  815.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.i}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  816. ***************
  817. *** 444,450 ****
  818.              %{aux-info*}\
  819.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  820.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  821. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  822.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  823.                         %{!pipe:%g.s} %A\n }}}}"},
  824.     {".h", "@c-header"},
  825. --- 474,480 ----
  826.              %{aux-info*}\
  827.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  828.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  829. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  830.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  831.                         %{!pipe:%g.s} %A\n }}}}"},
  832.     {".h", "@c-header"},
  833. ***************
  834. *** 456,461 ****
  835. --- 486,494 ----
  836.           -undef -D__GNUC__=2 %{ansi:-trigraphs -$ -D__STRICT_ANSI__}\
  837.       %{!undef:%{!ansi:%p} %P} %{trigraphs}\
  838.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  839. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  840. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  841. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  842.           %{traditional-cpp:-traditional}\
  843.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  844.           %i %W{o*}"},
  845. ***************
  846. *** 469,474 ****
  847. --- 502,510 ----
  848.       -undef -D__GNUC__=2 -D__GNUG__=2 -D__cplusplus \
  849.       %{ansi:-trigraphs -$ -D__STRICT_ANSI__} %{!undef:%{!ansi:%p} %P}\
  850.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  851. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  852. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  853. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  854.           %{traditional-cpp:-traditional} %{trigraphs}\
  855.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  856.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.i}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  857. ***************
  858. *** 479,485 ****
  859.              %{aux-info*}\
  860.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  861.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  862. !               %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  863.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  864.                         %{!pipe:%g.s} %A\n }}}}"},
  865.     {".i", "@cpp-output"},
  866. --- 515,521 ----
  867.              %{aux-info*}\
  868.              %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  869.              %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  870. !               %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  871.                 %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  872.                         %{!pipe:%g.s} %A\n }}}}"},
  873.     {".i", "@cpp-output"},
  874. ***************
  875. *** 490,496 ****
  876.       %{aux-info*}\
  877.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  878.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  879. !     %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  880.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %{!pipe:%g.s} %A\n }"},
  881.     {".ii", "@c++-cpp-output"},
  882.     {"@c++-cpp-output",
  883. --- 526,532 ----
  884.       %{aux-info*}\
  885.       %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  886.       %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  887. !     %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  888.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %{!pipe:%g.s} %A\n }"},
  889.     {".ii", "@c++-cpp-output"},
  890.     {"@c++-cpp-output",
  891. ***************
  892. *** 500,511 ****
  893.           %{aux-info*}\
  894.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  895.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  896. !        %{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  897.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  898.              %{!pipe:%g.s} %A\n }"},
  899.     {".s", "@assembler"},
  900.     {"@assembler",
  901. !    "%{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  902.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %i %A\n }"},
  903.     {".S", "@assembler-with-cpp"},
  904.     {"@assembler-with-cpp",
  905. --- 536,547 ----
  906.           %{aux-info*}\
  907.           %{pg:%{fomit-frame-pointer:%e-pg and -fomit-frame-pointer are incompatible}}\
  908.           %{S:%W{o*}%{!o*:-o %b.s}}%{!S:-o %{|!pipe:%g.s}} |\n\
  909. !        %{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  910.              %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  911.              %{!pipe:%g.s} %A\n }"},
  912.     {".s", "@assembler"},
  913.     {"@assembler",
  914. !    "%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  915.               %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o} %i %A\n }"},
  916.     {".S", "@assembler-with-cpp"},
  917.     {"@assembler-with-cpp",
  918. ***************
  919. *** 514,523 ****
  920.       %{M} %{MM} %{MD:-MD %b.d} %{MMD:-MMD %b.d} %{trigraphs} \
  921.           -undef -$ %{!undef:%p %P} -D__ASSEMBLER__ \
  922.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  923.           %{traditional-cpp:-traditional}\
  924.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  925.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  926. !     %{!M:%{!MM:%{!E:%{!S:as %{R} %{j} %{J} %{h} %{d2} %a \
  927.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  928.               %{!pipe:%g.s} %A\n }}}}"},
  929.     /* Mark end of table */
  930. --- 550,562 ----
  931.       %{M} %{MM} %{MD:-MD %b.d} %{MMD:-MMD %b.d} %{trigraphs} \
  932.           -undef -$ %{!undef:%p %P} -D__ASSEMBLER__ \
  933.           %c %{O*:-D__OPTIMIZE__} %{traditional} %{ftraditional:-traditional}\
  934. +         %{mshort:-D__MSHORT__} %{mint:-D__MINT__}\
  935. +         %{m68881:-D__M68881__} %{m68020:-D__M68020__}\
  936. +         %{mc68881:-D__M68881__} %{mc68020:-D__M68020__}\
  937.           %{traditional-cpp:-traditional}\
  938.       %{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C\
  939.           %i %{!M:%{!MM:%{!E:%{!pipe:%g.s}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n\
  940. !     %{!M:%{!MM:%{!E:%{!S:as %{v} %{R} %{j} %{J} %{h} %{d2} %a \
  941.                       %{c:%W{o*}%{!o*:-o %w%b.o}}%{!c:-o %d%w%b.o}\
  942.               %{!pipe:%g.s} %A\n }}}}"},
  943.     /* Mark end of table */
  944. ***************
  945. *** 531,536 ****
  946. --- 570,584 ----
  947.   
  948.   /* Here is the spec for running the linker, after compiling all files.  */
  949.   
  950. + #if (defined(CROSSATARI) || defined(atarist) || defined(atariminix))
  951. + static char *link_command_spec = 
  952. +  "%{!c:%{!M*:%{!E:%{!S:ld %{v} %{G} %{o*} %l\
  953. +  %{A} %{d} %{e*} %{N} %{n} %{r} %{s} %{S} %{T*} %{t} %{u*} %{X} %{x} %{z}\
  954. +  %{y*} %{!nostdlib:%S} \
  955. +  %{L*} %o %{!nostdlib:%s %L}\n }}}}";
  956. + 
  957. + #else
  958. + 
  959.   #ifdef LINK_LIBGCC_SPECIAL
  960.   /* Have gcc do the search.  */
  961.   static char *link_command_spec = "\
  962. ***************
  963. *** 546,551 ****
  964. --- 594,600 ----
  965.               %{!A:%{!nostdlib:%S}} \
  966.               %{L*} %D %o %{!nostdlib:-lgcc %L -lgcc %{!A:%E}}\n }}}}}";
  967.   #endif
  968. + #endif
  969.   
  970.   /* A vector of options to give to the linker.
  971.      These options are accumlated by %x
  972. ***************
  973. *** 553,558 ****
  974. --- 602,608 ----
  975.   static int n_linker_options;
  976.   static char **linker_options;
  977.   
  978. + #if (!(defined(atarist) || defined(CROSSATARI) || defined(atariminix)))
  979.   /* Read compilation specs from a file named FILENAME,
  980.      replacing the default ones.
  981.   
  982. ***************
  983. *** 689,694 ****
  984. --- 739,745 ----
  985.   
  986.     return p;
  987.   }
  988. + #endif /* ataris */
  989.   
  990.   /* Structure to keep track of the specs that have been defined so far.  These
  991.      are accessed using %(specname) or %[specname] in a compiler or link spec. */
  992. ***************
  993. *** 789,794 ****
  994. --- 840,852 ----
  995.   /* Name with which this program was invoked.  */
  996.   
  997.   static char *programname;
  998. + 
  999. + #ifdef atarist
  1000. + /* Flag indicating, that stderr should be redirected for the child
  1001. +    processes */
  1002. + 
  1003. + unsigned char zflag;
  1004. + #endif
  1005.   
  1006.   /* Structures to keep track of prefixes to try when looking for files. */
  1007.   
  1008. ***************
  1009. *** 1030,1038 ****
  1010.   static void
  1011.   choose_temp_base ()
  1012.   {
  1013. -   char *base = getenv ("TMPDIR");
  1014.     int len;
  1015.   
  1016.     if (base == (char *)0)
  1017.       {
  1018.   #ifdef P_tmpdir
  1019. --- 1088,1113 ----
  1020.   static void
  1021.   choose_temp_base ()
  1022.   {
  1023.     int len;
  1024. + #if (!(defined(atarist) || defined(atariminix)))
  1025. +   char *base = getenv ("TMPDIR");
  1026. + #else
  1027. +   char *base = getenv ("TEMP");
  1028.   
  1029. +   if(base == (char *)0)
  1030. +   {
  1031. +       base = getenv("TMPDIR");
  1032. +       if(base == (char *)0)
  1033. +       base = getenv("TMP");
  1034. +   }
  1035. +   if(base != (char *)0)
  1036. +   {
  1037. +       char *newbase = alloca(FILENAME_MAX);
  1038. +       dos2unx(base,newbase);
  1039. +       base = newbase;
  1040. +   }
  1041. + #endif
  1042. + 
  1043.     if (base == (char *)0)
  1044.       {
  1045.   #ifdef P_tmpdir
  1046. ***************
  1047. *** 1051,1057 ****
  1048.     len = strlen (base);
  1049.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1050.     strcpy (temp_filename, base);
  1051. !   if (len > 0 && temp_filename[len-1] != '/')
  1052.       temp_filename[len++] = '/';
  1053.     strcpy (temp_filename + len, "ccXXXXXX");
  1054.   
  1055. --- 1126,1136 ----
  1056.     len = strlen (base);
  1057.     temp_filename = xmalloc (len + sizeof("/ccXXXXXX"));
  1058.     strcpy (temp_filename, base);
  1059. !   if (len > 0 && (temp_filename[len-1] != '/' 
  1060. ! #ifdef atarist
  1061. !           || temp_filename[len-1] != '\\'
  1062. ! #endif
  1063. !            ))
  1064.       temp_filename[len++] = '/';
  1065.     strcpy (temp_filename + len, "ccXXXXXX");
  1066.   
  1067. ***************
  1068. *** 1068,1073 ****
  1069. --- 1147,1153 ----
  1070.      use come from an obstack, we don't have to worry about allocating
  1071.      space for them.  */
  1072.   
  1073. + #if (!(defined(CROSSATARI) || defined(atarist)))
  1074.   #ifndef HAVE_PUTENV
  1075.   
  1076.   putenv (str)
  1077. ***************
  1078. *** 1154,1159 ****
  1079. --- 1234,1240 ----
  1080.     obstack_grow (&collect_obstack, "\0", 1);
  1081.     putenv (obstack_finish (&collect_obstack));
  1082.   }
  1083. + #endif /* ataris */
  1084.   
  1085.   
  1086.   /* Search for NAME using the prefix list PREFIXES.  MODE is passed to
  1087. ***************
  1088. *** 1389,1394 ****
  1089. --- 1470,1476 ----
  1090.   
  1091.   #else /* not __MSDOS__ */
  1092.   
  1093. + #ifndef atarist
  1094.   static int
  1095.   pexecute (func, program, argv, not_last)
  1096.        char *program;
  1097. ***************
  1098. *** 1476,1481 ****
  1099. --- 1558,1564 ----
  1100.       }
  1101.   }
  1102.   
  1103. + #endif /* not atarist */
  1104.   #endif /* not __MSDOS__ */
  1105.   
  1106.   /* Execute the command specified by the arguments on the current line of spec.
  1107. ***************
  1108. *** 1494,1509 ****
  1109.       {
  1110.         char *prog;        /* program name.  */
  1111.         char **argv;        /* vector of args.  */
  1112.         int pid;            /* pid of process for this command.  */
  1113.       };
  1114.   
  1115.     struct command *commands;    /* each command buffer with above info.  */
  1116.   
  1117.     /* Count # of piped commands.  */
  1118.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1119.       if (strcmp (argbuf[i], "|") == 0)
  1120.         n_commands++;
  1121. ! 
  1122.     /* Get storage for each command.  */
  1123.     commands
  1124.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1125. --- 1577,1597 ----
  1126.       {
  1127.         char *prog;        /* program name.  */
  1128.         char **argv;        /* vector of args.  */
  1129. + #ifndef atarist
  1130.         int pid;            /* pid of process for this command.  */
  1131. + #endif
  1132.       };
  1133.   
  1134.     struct command *commands;    /* each command buffer with above info.  */
  1135.   
  1136. + #ifndef atarist
  1137.     /* Count # of piped commands.  */
  1138.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1139.       if (strcmp (argbuf[i], "|") == 0)
  1140.         n_commands++;
  1141. ! #else
  1142. !   n_commands = 1;
  1143. ! #endif
  1144.     /* Get storage for each command.  */
  1145.     commands
  1146.       = (struct command *) alloca (n_commands * sizeof (struct command));
  1147. ***************
  1148. *** 1518,1523 ****
  1149. --- 1606,1612 ----
  1150.     if (string)
  1151.       commands[0].argv[0] = string;
  1152.   
  1153. + #ifndef atarist
  1154.     for (n_commands = 1, i = 0; i < argbuf_index; i++)
  1155.       if (strcmp (argbuf[i], "|") == 0)
  1156.         {                /* each command.  */
  1157. ***************
  1158. *** 1532,1537 ****
  1159. --- 1621,1629 ----
  1160.         commands[n_commands].argv[0] = string;
  1161.       n_commands++;
  1162.         }
  1163. + #else
  1164. +   n_commands = 1;
  1165. + #endif
  1166.   
  1167.     argbuf[argbuf_index] = 0;
  1168.   
  1169. ***************
  1170. *** 1547,1555 ****
  1171. --- 1639,1649 ----
  1172.         for (j = commands[i].argv; *j; j++)
  1173.           fprintf (stderr, " %s", *j);
  1174.   
  1175. + #ifndef atarist
  1176.         /* Print a pipe symbol after all but the last command.  */
  1177.         if (i + 1 != n_commands)
  1178.           fprintf (stderr, " |");
  1179. + #endif
  1180.         fprintf (stderr, "\n");
  1181.       }
  1182.         fflush (stderr);
  1183. ***************
  1184. *** 1564,1574 ****
  1185. --- 1658,1670 ----
  1186.   #endif /* DEBUG */
  1187.       }
  1188.   
  1189. + #ifndef atarist
  1190.     /* Run each piped subprocess.  */
  1191.   
  1192.     last_pipe_input = STDIN_FILE_NO;
  1193.     for (i = 0; i < n_commands; i++)
  1194.       {
  1195. + #ifndef atariminix
  1196.         char *string = commands[i].argv[0];
  1197.   
  1198.         commands[i].pid = pexecute ((string != commands[i].prog ? execv : execvp),
  1199. ***************
  1200. *** 1575,1580 ****
  1201. --- 1671,1684 ----
  1202.                     string, commands[i].argv,
  1203.                     i + 1 < n_commands);
  1204.   
  1205. + #else
  1206. +       extern int execv();
  1207. +       char *string = commands[i].argv[0];
  1208. + 
  1209. +       commands[i].pid = pexecute (execv,
  1210. +                   string, commands[i].argv,
  1211. +                   i + 1 < n_commands);
  1212. + #endif
  1213.         if (string != commands[i].prog)
  1214.       free (string);
  1215.       }
  1216. ***************
  1217. *** 1618,1623 ****
  1218. --- 1722,1772 ----
  1219.         }
  1220.       return ret_code;
  1221.     }
  1222. + #else /* atarist */
  1223. +  {
  1224. +      register int iii;
  1225. +      int errfd, oldfd;
  1226. +      char **j;
  1227. + 
  1228. +      execution_count++;
  1229. + 
  1230. +      if (zflag)
  1231. +        {
  1232. +      errfd = Fopen("compile.err", 2);
  1233. +      if (errfd < __SMALLEST_VALID_HANDLE)
  1234. +        errfd = Fcreate("compile.err", 0);
  1235. +      else
  1236. +        Fseek(0L, errfd, 2);
  1237. +      if (errfd >= __SMALLEST_VALID_HANDLE)
  1238. +        {
  1239. +          oldfd = Fdup (2);
  1240. +          Fforce(2, errfd);
  1241. +        }
  1242. +      else
  1243. +        {
  1244. +          error("cannot open %s", "compile.err");
  1245. +          zflag = 0;        /* no redirection */
  1246. +        }
  1247. +        }
  1248. +      for (i = 0; i < n_commands ; i++)
  1249. +      {
  1250. +          j = commands[i].argv;
  1251. +          iii = spawnve(0, j[0], j, NULL);
  1252. +      if(iii != 0)
  1253. +          break;
  1254. +      }
  1255. +      if (zflag)
  1256. +        {
  1257. +      Fforce(2, oldfd);
  1258. +      Fclose(oldfd);
  1259. +      Fclose(errfd);
  1260. +        }
  1261. +      if (iii != 0)
  1262. +        return -1;
  1263. +      else
  1264. +        return 0;
  1265. +  }
  1266. + #endif /* atarist */  
  1267.   }
  1268.   
  1269.   /* Find all the switches given to us
  1270. ***************
  1271. *** 1675,1680 ****
  1272. --- 1824,1830 ----
  1273.   
  1274.     /* Set up the default search paths.  */
  1275.   
  1276. + #ifndef CROSSATARI
  1277.     temp = getenv ("GCC_EXEC_PREFIX");
  1278.     if (temp)
  1279.       {
  1280. ***************
  1281. *** 1752,1757 ****
  1282. --- 1902,1908 ----
  1283.           endp++;
  1284.       }
  1285.       }
  1286. + #endif /* CROSSATARI */
  1287.   
  1288.     /* Use LPATH like LIBRARY_PATH (for the CMU build program).  */
  1289.     temp = getenv ("LPATH");
  1290. ***************
  1291. *** 1887,1892 ****
  1292. --- 2038,2049 ----
  1293.             save_temps_flag = 1;
  1294.             break;
  1295.           }
  1296. + #ifdef atarist
  1297. +         case 'z':    /* redirect stderr to a file */
  1298. +           zflag++;
  1299. +           n_switches++;
  1300. +           break;
  1301. + #endif
  1302.           default:
  1303.             n_switches++;
  1304.   
  1305. ***************
  1306. *** 2042,2047 ****
  1307. --- 2199,2213 ----
  1308.      search dirs for it.  */
  1309.   static int this_is_library_file;
  1310.   
  1311. + #ifdef atarist
  1312. + /* I don't know why this is necessary.  Recursive calls to do_spec_1
  1313. +    end up ignoring the error code from calls to execute().  That causes
  1314. +    do_spec to get a 0 return value, and do_spec_1("\n"), which causes the
  1315. +    command to get executed again.
  1316. + */
  1317. + int execute_return_error = 0;
  1318. + #endif
  1319. + 
  1320.   /* Process the spec SPEC and run the commands specified therein.
  1321.      Returns 0 if the spec is successfully processed; -1 if failed.  */
  1322.   
  1323. ***************
  1324. *** 2061,2070 ****
  1325. --- 2227,2245 ----
  1326.   
  1327.     /* Force out any unfinished command.
  1328.        If -pipe, this forces out the last command if it ended in `|'.  */
  1329. + #ifdef atarist
  1330. +   if (!value && execute_return_error)
  1331. +     {
  1332. +     value = execute_return_error;
  1333. +     execute_return_error = 0;
  1334. +     }
  1335. + #endif
  1336.     if (value == 0)
  1337.       {
  1338. + #ifndef atarist
  1339.         if (argbuf_index > 0 && !strcmp (argbuf[argbuf_index - 1], "|"))
  1340.       argbuf_index--;
  1341. + #endif
  1342.   
  1343.         if (argbuf_index > 0)
  1344.       value = execute ();
  1345. ***************
  1346. *** 2101,2106 ****
  1347. --- 2276,2332 ----
  1348.          Otherwise, NL, SPC, TAB and % are special.  */
  1349.       switch (inswitch ? 'a' : c)
  1350.         {
  1351. + #if (defined(atarist) || defined(CROSSATARI))
  1352. + /* this stuff added by jrd.  if see '$', expect name of env var, delimited
  1353. +    by '$'.  Find it's value, and subst it in.
  1354. + 
  1355. +    modified by ERS to only collect things that look like names; this
  1356. +    saves e.g. the -$ arg. to cpp from getting munged */
  1357. + 
  1358. +       case '$':
  1359. +       {
  1360. +     char varname[32];        /* should be enough */
  1361. +     char * value;            /* deciphered value string */
  1362. +     char *temp;
  1363. +     int i;
  1364. +     extern char *getenv(), *index();
  1365. +     
  1366. +     for (i = 0 ; ((c = *p) != '$') && isalnum(c) && i < 31 ; i++, p++)
  1367. +         varname[i] = c;
  1368. +     varname[i] = '\0';
  1369. +     if (strlen(varname) > 0) /* ++jrb fix */
  1370. +     {
  1371. +                  ++p;    /* skip trailing '$' */
  1372. +         value = getenv(varname); /* ++jrb fix */
  1373. +         if (value)
  1374. +         { /* if value is a path, only consider 1'st component */
  1375. + #ifdef atarist
  1376. +             if((temp = index(value, ',')) == NULL)
  1377. +                 temp = index(value, ';');
  1378. + #else
  1379. +             temp = index(value, ':');
  1380. + #endif
  1381. +             if(temp != NULL)
  1382. +             {
  1383. +                 char *t = (char *) alloca(strlen(value) + 1);
  1384. +                 strcpy(t, value);
  1385. +                 t[temp-value] = '\0';
  1386. +                 do_spec_1(t, 0);
  1387. +             }
  1388. +             else
  1389. +                 do_spec_1(value, 0);
  1390. +         }
  1391. +             else
  1392. +             do_spec_1(".", 0);    /* a compleat kludge... */
  1393. +     }
  1394. +         else
  1395. +         {
  1396. +              obstack_1grow(&obstack, '$');
  1397. +              arg_going = 1;
  1398. +         }
  1399. +       }
  1400. +      break;
  1401. + #endif /* atarist */
  1402.         case '\n':
  1403.       /* End of line: finish any pending argument,
  1404.          then run the pending command if one has been started.  */
  1405. ***************
  1406. *** 2138,2143 ****
  1407. --- 2364,2373 ----
  1408.       if (argbuf_index > 0)
  1409.         {
  1410.           int value = execute ();
  1411. + #ifdef atarist
  1412. +         if (!execute_return_error)
  1413. +             execute_return_error = value;
  1414. + #endif
  1415.           if (value)
  1416.             return value;
  1417.         }
  1418. ***************
  1419. *** 2626,2638 ****
  1420. --- 2856,2876 ----
  1421.           break;
  1422.   
  1423.         default:
  1424. + #if 1 /* atarist */
  1425. +         fprintf(stderr, "Bogus char '%c' found at pos %d of spec '%s'\n",
  1426. +         c, (p - spec - 1), spec);
  1427. + #endif
  1428.           abort ();
  1429.         }
  1430.       break;
  1431.   
  1432. + #ifndef atarist
  1433. +       /* on the atari it is important to preserve backslash in spec */
  1434. +       /* so just let it go into default case */
  1435.         case '\\':
  1436.       /* Backslash: treat next character as ordinary.  */
  1437.       c = *p++;
  1438. + #endif
  1439.   
  1440.       /* fall through */
  1441.         default:
  1442. ***************
  1443. *** 2900,2905 ****
  1444. --- 3138,3144 ----
  1445.   
  1446.   /* On fatal signals, delete all the temporary files.  */
  1447.   
  1448. + #ifndef atarist
  1449.   static void
  1450.   fatal_error (signum)
  1451.        int signum;
  1452. ***************
  1453. *** 2911,2916 ****
  1454. --- 3150,3156 ----
  1455.        so its normal effect occurs.  */
  1456.     kill (getpid (), signum);
  1457.   }
  1458. + #endif
  1459.   
  1460.   int
  1461.   main (argc, argv)
  1462. ***************
  1463. *** 2924,2929 ****
  1464. --- 3164,3174 ----
  1465.     char *explicit_link_files;
  1466.     char *specs_file;
  1467.   
  1468. + #ifdef atarist
  1469. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1470. + /*  _malloczero(1); */     /* zero mallocs by default */
  1471. +   programname = "gcc";
  1472. + #else  
  1473.     programname = argv[0];
  1474.   
  1475.     if (signal (SIGINT, SIG_IGN) != SIG_IGN)
  1476. ***************
  1477. *** 2936,2941 ****
  1478. --- 3181,3187 ----
  1479.     if (signal (SIGPIPE, SIG_IGN) != SIG_IGN)
  1480.       signal (SIGPIPE, fatal_error);
  1481.   #endif
  1482. + #endif /* atarist */
  1483.   
  1484.     argbuf_length = 10;
  1485.     argbuf = (char **) xmalloc (argbuf_length * sizeof (char *));
  1486. ***************
  1487. *** 2942,2947 ****
  1488. --- 3188,3194 ----
  1489.   
  1490.     obstack_init (&obstack);
  1491.   
  1492. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1493.     /* Set up to remember the pathname of gcc and any options
  1494.        needed for collect.  */
  1495.     obstack_init (&collect_obstack);
  1496. ***************
  1497. *** 2948,2953 ****
  1498. --- 3195,3201 ----
  1499.     obstack_grow (&collect_obstack, "COLLECT_GCC=", sizeof ("COLLECT_GCC=")-1);
  1500.     obstack_grow (&collect_obstack, programname, strlen (programname)+1);
  1501.     putenv (obstack_finish (&collect_obstack));
  1502. + #endif
  1503.   
  1504.     /* Choose directory for temp files.  */
  1505.   
  1506. ***************
  1507. *** 2959,2964 ****
  1508. --- 3207,3221 ----
  1509.   
  1510.     process_command (argc, argv);
  1511.   
  1512. + #if (defined(atarist) || defined(CROSSATARI))
  1513. +   {
  1514. +     char *temp;
  1515. +     
  1516. +     if((temp = getenv ("GCCEXEC")))
  1517. +     add_prefix (&exec_prefix, temp, 0, 0, 0);
  1518. +   }
  1519. + #endif
  1520. +   
  1521.     /* Initialize the vector of specs to just the default.
  1522.        This means one element containing 0s, as a terminator.  */
  1523.   
  1524. ***************
  1525. *** 2966,2971 ****
  1526. --- 3223,3232 ----
  1527.     bcopy (default_compilers, compilers, sizeof default_compilers);
  1528.     n_compilers = n_default_compilers;
  1529.   
  1530. + 
  1531. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1532. +   specs_file = 0;
  1533. + #else
  1534.     /* Read specs from a file if there is one.  */
  1535.   
  1536.     machine_suffix = concat (spec_machine, "/", concat (spec_version, "/", ""));
  1537. ***************
  1538. *** 2974,2979 ****
  1539. --- 3235,3241 ----
  1540.     /* Read the specs file unless it is a default one.  */
  1541.     if (specs_file != 0 && strcmp (specs_file, "specs"))
  1542.       read_specs (specs_file);
  1543. + #endif
  1544.   
  1545.     /* If not cross-compiling, look for startfiles in the standard places.  */
  1546.     /* The fact that these are done here, after reading the specs file,
  1547. ***************
  1548. *** 3013,3019 ****
  1549. --- 3275,3287 ----
  1550.   
  1551.     if (verbose_flag)
  1552.       {
  1553. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1554. + #include "PatchLev.h"
  1555. +       fprintf (stderr, "gcc-atariST version %s Patchlevel %s\n",
  1556. +            version_string, PatchLevel);
  1557. + #else
  1558.         fprintf (stderr, "gcc version %s\n", version_string);
  1559. + #endif
  1560.         if (n_infiles == 0)
  1561.       exit (0);
  1562.       }
  1563. ***************
  1564. *** 3060,3066 ****
  1565. --- 3328,3339 ----
  1566.   
  1567.         input_basename = input_filename;
  1568.         for (p = input_filename; *p; p++)
  1569. + #ifdef atarist
  1570. +         if (((*p == '/') || (*p == '\\')) && (*(p-1) != ':'))
  1571. +             /* allow both '\' and '/' with  our new lib */
  1572. + #else
  1573.           if (*p == '/')
  1574. + #endif
  1575.             input_basename = p + 1;
  1576.   
  1577.         /* Find a suffix starting with the last period,
  1578. ***************
  1579. *** 3107,3112 ****
  1580. --- 3380,3386 ----
  1581.         int i;
  1582.         int first_time;
  1583.   
  1584. + #if (!(defined(atarist) || defined(CROSSATARI)))
  1585.         /* Rebuild the COMPILER_PATH and LIBRARY_PATH environment variables
  1586.        for collect.  */
  1587.         putenv_from_prefixes (&exec_prefix, "COMPILER_PATH=");
  1588. ***************
  1589. *** 3137,3142 ****
  1590. --- 3411,3417 ----
  1591.       }
  1592.         obstack_grow (&collect_obstack, "\0", 1);
  1593.         putenv (obstack_finish (&collect_obstack));
  1594. + #endif
  1595.   
  1596.         value = do_spec (link_command_spec);
  1597.         if (value < 0)
  1598. *** 1.1    1992/03/27 21:49:26
  1599. --- getpwd.c    1992/03/28 03:12:41
  1600. ***************
  1601. *** 14,20 ****
  1602.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1603.      the few exceptions to the general rule here.  */
  1604.   
  1605. ! #if !(defined (POSIX) || defined (USG) || defined (VMS))
  1606.   #include <sys/param.h>
  1607.   extern char *getwd ();
  1608.   #define getcwd(buf,len) getwd(buf)
  1609. --- 14,20 ----
  1610.      BSD systems) now provides getcwd as called for by POSIX.  Allow for
  1611.      the few exceptions to the general rule here.  */
  1612.   
  1613. ! #if !(defined (POSIX) || defined (USG) || defined (VMS) || defined(atarist))
  1614.   #include <sys/param.h>
  1615.   extern char *getwd ();
  1616.   #define getcwd(buf,len) getwd(buf)
  1617. ***************
  1618. *** 46,56 ****
  1619.     if (!p && !(errno = failure_errno))
  1620.       {
  1621.         if (! ((p = getenv ("PWD")) != 0
  1622.            && *p == '/'
  1623.            && stat (p, &pwdstat) == 0
  1624.            && stat (".", &dotstat) == 0
  1625.            && dotstat.st_ino == pwdstat.st_ino
  1626. !          && dotstat.st_dev == pwdstat.st_dev))
  1627.   
  1628.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1629.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1630. --- 46,59 ----
  1631.     if (!p && !(errno = failure_errno))
  1632.       {
  1633.         if (! ((p = getenv ("PWD")) != 0
  1634. + #ifndef atarist
  1635.            && *p == '/'
  1636.            && stat (p, &pwdstat) == 0
  1637.            && stat (".", &dotstat) == 0
  1638.            && dotstat.st_ino == pwdstat.st_ino
  1639. !          && dotstat.st_dev == pwdstat.st_dev
  1640. ! #endif
  1641. !          ))
  1642.   
  1643.       /* The shortcut didn't work.  Try the slow, ``sure'' way.  */
  1644.       for (s = GUESSPATHLEN;  ! getcwd (p = xmalloc (s), s);  s *= 2)
  1645. *** 1.3    1992/03/27 21:49:26
  1646. --- toplev.c    1992/03/28 01:55:06
  1647. ***************
  1648. *** 31,37 ****
  1649.   
  1650.   #include <sys/stat.h>
  1651.   
  1652. ! #ifdef USG
  1653.   #undef FLOAT
  1654.   #include <sys/param.h>
  1655.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1656. --- 31,37 ----
  1657.   
  1658.   #include <sys/stat.h>
  1659.   
  1660. ! #if defined(USG) || defined(CROSSHPUX)
  1661.   #undef FLOAT
  1662.   #include <sys/param.h>
  1663.   /* This is for hpux.  It is a real screw.  They should change hpux.  */
  1664. ***************
  1665. *** 41,49 ****
  1666. --- 41,57 ----
  1667.   #undef FFS  /* Some systems define this in param.h.  */
  1668.   #else
  1669.   #ifndef VMS
  1670. + #if (!(defined(atarist) || defined(atariminix)))
  1671.   #include <sys/time.h>
  1672.   #include <sys/resource.h>
  1673. + #endif /* !(atarist || atariminix) */
  1674. + #endif
  1675.   #endif
  1676. + 
  1677. + #ifdef atariminix
  1678. + #include <sys/times.h>
  1679. + /* #include <minix/const.h>, avoid dragging this in */
  1680. + #define HZ 60    /* this is the only thing needed from minix/const.h */
  1681.   #endif
  1682.   
  1683.   #include "input.h"
  1684. ***************
  1685. *** 57,62 ****
  1686. --- 65,79 ----
  1687.   #include "xcoffout.h"
  1688.   #endif
  1689.   
  1690. + #ifdef atarist
  1691. + long _stksize = -1L;    /* for all sizes of ST's */
  1692. +     /* -1 means malloc from own heap and keep all  of memory */
  1693. + #endif /* atarist */
  1694. + 
  1695. + #if (defined(atarist) || defined(atariminix))
  1696. + #include "astab.h"    /* need this for ASM_OUTPUT_SOURCE_FILENAME */
  1697. + #endif
  1698. + 
  1699.   #ifdef VMS
  1700.   /* The extra parameters substantially improve the I/O performance.  */
  1701.   static FILE *
  1702. ***************
  1703. *** 586,592 ****
  1704.   int
  1705.   get_run_time ()
  1706.   {
  1707. ! #ifdef USG
  1708.     struct tms tms;
  1709.   #else
  1710.   #ifndef VMS
  1711. --- 603,612 ----
  1712.   int
  1713.   get_run_time ()
  1714.   {
  1715. ! #ifdef atarist
  1716. !   long now;
  1717. ! #else
  1718. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1719.     struct tms tms;
  1720.   #else
  1721.   #ifndef VMS
  1722. ***************
  1723. *** 601,611 ****
  1724.       } vms_times;
  1725.   #endif
  1726.   #endif
  1727.   
  1728.     if (quiet_flag)
  1729.       return 0;
  1730.   
  1731. ! #ifdef USG
  1732.     times (&tms);
  1733.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1734.   #else
  1735. --- 621,635 ----
  1736.       } vms_times;
  1737.   #endif
  1738.   #endif
  1739. + #endif
  1740.   
  1741.     if (quiet_flag)
  1742.       return 0;
  1743.   
  1744. ! #ifdef atarist
  1745. !   return(time(NULL) * 1000000);
  1746. ! #else
  1747. ! #if (defined(USG) || defined(atariminix) || defined(CROSSHPUX))
  1748.     times (&tms);
  1749.     return (tms.tms_utime + tms.tms_stime) * (1000000 / HZ);
  1750.   #else
  1751. ***************
  1752. *** 618,623 ****
  1753. --- 642,648 ----
  1754.     return (vms_times.proc_user_time + vms_times.proc_system_time) * 10000;
  1755.   #endif
  1756.   #endif
  1757. + #endif
  1758.   }
  1759.   
  1760.   #define TIMEVAR(VAR, BODY)    \
  1761. ***************
  1762. *** 1220,1225 ****
  1763. --- 1245,1251 ----
  1764.     longjmp (float_handler, 1);
  1765.   }
  1766.   
  1767. + #ifndef atarist
  1768.   /* Handler for SIGPIPE.  */
  1769.   
  1770.   static void
  1771. ***************
  1772. *** 1229,1234 ****
  1773. --- 1255,1261 ----
  1774.   {
  1775.     fatal ("output pipe has been closed");
  1776.   }
  1777. + #endif
  1778.   
  1779.   /* Strip off a legitimate source ending from the input string NAME of
  1780.      length LEN. */
  1781. ***************
  1782. *** 1378,1384 ****
  1783. --- 1405,1415 ----
  1784.       {
  1785.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1786.         strcpy (dumpname, dump_base_name);
  1787. + #ifndef atarist
  1788.         strcat (dumpname, ".jump");
  1789. + #else
  1790. +       strcat (dumpname, ".jmp");
  1791. + #endif
  1792.         jump_opt_dump_file = fopen (dumpname, "w");
  1793.         if (jump_opt_dump_file == 0)
  1794.       pfatal_with_name (dumpname);
  1795. ***************
  1796. *** 1400,1406 ****
  1797. --- 1431,1441 ----
  1798.       {
  1799.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1800.         strcpy (dumpname, dump_base_name);
  1801. + #ifndef atarist
  1802.         strcat (dumpname, ".loop");
  1803. + #else
  1804. +       strcat (dumpname, ".lop");
  1805. + #endif
  1806.         loop_dump_file = fopen (dumpname, "w");
  1807.         if (loop_dump_file == 0)
  1808.       pfatal_with_name (dumpname);
  1809. ***************
  1810. *** 1411,1417 ****
  1811. --- 1446,1456 ----
  1812.       {
  1813.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1814.         strcpy (dumpname, dump_base_name);
  1815. + #ifndef atarist
  1816.         strcat (dumpname, ".cse2");
  1817. + #else
  1818. +       strcat (dumpname, ".cs2");
  1819. + #endif
  1820.         cse2_dump_file = fopen (dumpname, "w");
  1821.         if (cse2_dump_file == 0)
  1822.       pfatal_with_name (dumpname);
  1823. ***************
  1824. *** 1422,1428 ****
  1825. --- 1461,1471 ----
  1826.       {
  1827.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1828.         strcpy (dumpname, dump_base_name);
  1829. + #ifndef atarist
  1830.         strcat (dumpname, ".flow");
  1831. + #else
  1832. +       strcat (dumpname, ".flo");
  1833. + #endif
  1834.         flow_dump_file = fopen (dumpname, "w");
  1835.         if (flow_dump_file == 0)
  1836.       pfatal_with_name (dumpname);
  1837. ***************
  1838. *** 1433,1439 ****
  1839. --- 1476,1486 ----
  1840.       {
  1841.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1842.         strcpy (dumpname, dump_base_name);
  1843. + #ifndef atarist
  1844.         strcat (dumpname, ".combine");
  1845. + #else
  1846. +       strcat (dumpname, ".cmb");
  1847. + #endif
  1848.         combine_dump_file = fopen (dumpname, "w");
  1849.         if (combine_dump_file == 0)
  1850.       pfatal_with_name (dumpname);
  1851. ***************
  1852. *** 1444,1450 ****
  1853. --- 1491,1501 ----
  1854.       {
  1855.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1856.         strcpy (dumpname, dump_base_name);
  1857. + #ifndef atarist
  1858.         strcat (dumpname, ".sched");
  1859. + #else
  1860. +       strcat (dumpname, ".sch");
  1861. + #endif
  1862.         sched_dump_file = fopen (dumpname, "w");
  1863.         if (sched_dump_file == 0)
  1864.       pfatal_with_name (dumpname);
  1865. ***************
  1866. *** 1455,1461 ****
  1867. --- 1506,1516 ----
  1868.       {
  1869.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1870.         strcpy (dumpname, dump_base_name);
  1871. + #ifndef atarist
  1872.         strcat (dumpname, ".lreg");
  1873. + #else
  1874. +       strcat (dumpname, ".lrg");
  1875. + #endif
  1876.         local_reg_dump_file = fopen (dumpname, "w");
  1877.         if (local_reg_dump_file == 0)
  1878.       pfatal_with_name (dumpname);
  1879. ***************
  1880. *** 1466,1472 ****
  1881. --- 1521,1531 ----
  1882.       {
  1883.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 6);
  1884.         strcpy (dumpname, dump_base_name);
  1885. + #ifndef atarist
  1886.         strcat (dumpname, ".greg");
  1887. + #else
  1888. +       strcat (dumpname, ".grg");
  1889. + #endif
  1890.         global_reg_dump_file = fopen (dumpname, "w");
  1891.         if (global_reg_dump_file == 0)
  1892.       pfatal_with_name (dumpname);
  1893. ***************
  1894. *** 1477,1483 ****
  1895. --- 1536,1546 ----
  1896.       {
  1897.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 8);
  1898.         strcpy (dumpname, dump_base_name);
  1899. + #ifndef atarist
  1900.         strcat (dumpname, ".sched2");
  1901. + #else
  1902. +       strcat (dumpname, ".sc2");
  1903. + #endif
  1904.         sched2_dump_file = fopen (dumpname, "w");
  1905.         if (sched2_dump_file == 0)
  1906.       pfatal_with_name (dumpname);
  1907. ***************
  1908. *** 1488,1494 ****
  1909. --- 1551,1561 ----
  1910.       {
  1911.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 7);
  1912.         strcpy (dumpname, dump_base_name);
  1913. + #ifndef atarist
  1914.         strcat (dumpname, ".jump2");
  1915. + #else
  1916. +       strcat (dumpname, ".jp2");
  1917. + #endif
  1918.         jump2_opt_dump_file = fopen (dumpname, "w");
  1919.         if (jump2_opt_dump_file == 0)
  1920.       pfatal_with_name (dumpname);
  1921. ***************
  1922. *** 1512,1518 ****
  1923. --- 1579,1589 ----
  1924.       {
  1925.         register char *dumpname = (char *) xmalloc (dump_base_name_length + 10);
  1926.         strcpy (dumpname, dump_base_name);
  1927. + #ifndef atarist
  1928.         strcat (dumpname, ".stack");
  1929. + #else
  1930. +       strcat (dumpname, ".stk");
  1931. + #endif
  1932.         stack_reg_dump_file = fopen (dumpname, "w");
  1933.         if (stack_reg_dump_file == 0)
  1934.       pfatal_with_name (dumpname);
  1935. ***************
  1936. *** 2506,2517 ****
  1937. --- 2577,2598 ----
  1938.     int version_flag = 0;
  1939.     char *p;
  1940.   
  1941. + #ifdef atarist
  1942. + /* turn this on if you are going to set the TOS 1.4 dont clear heap flag */
  1943. + /*  _malloczero(1); */     /* zero mallocs by default */
  1944. + #endif  
  1945. + 
  1946.     /* save in case md file wants to emit args as a comment.  */
  1947.     save_argc = argc;
  1948.     save_argv = argv;
  1949.   
  1950.     p = argv[0] + strlen (argv[0]);
  1951. + #ifndef atarist
  1952.     while (p != argv[0] && p[-1] != '/') --p;
  1953. + #else
  1954. +   while (p != argv[0] && ( ((p[-1] != '/') || (p[-1] != '\\')) &&
  1955. +               (p[-2] != ':') ) ) --p;
  1956. + #endif
  1957.     progname = p;
  1958.   
  1959.   #ifdef RLIMIT_STACK
  1960. ***************
  1961. *** 2528,2534 ****
  1962. --- 2609,2617 ----
  1963.   
  1964.     signal (SIGFPE, float_signal);
  1965.   
  1966. + #ifndef atarist
  1967.     signal (SIGPIPE, pipe_closed);
  1968. + #endif
  1969.   
  1970.     decl_printable_name = decl_name;
  1971.     lang_expand_expr = (struct rtx_def *(*)()) do_abort;
  1972. ***************
  1973. *** 2614,2619 ****
  1974. --- 2697,2712 ----
  1975.         else if (!strcmp (str, "dumpbase"))
  1976.           {
  1977.             dump_base_name = argv[++i];
  1978. + #ifdef atarist
  1979. + /* dump_base_name will typically be 'foo.c' here.  Need to truncate at the '.',
  1980. +    cause dots mean something here */
  1981. +         {
  1982. +           char * n = dump_base_name;
  1983. +           for ( ; ((*n) && (*n != '.')) ; )
  1984. +         n++;
  1985. +           *n = '\0';
  1986. +         }
  1987. + #endif
  1988.           }
  1989.         else if (str[0] == 'd')
  1990.           {
  1991. ***************
  1992. *** 2990,2996 ****
  1993. --- 3083,3095 ----
  1994.        option flags in use.  */
  1995.     if (version_flag)
  1996.       {
  1997. + #if (defined(atarist) || defined(CROSSATARI) || defined(atariminix))
  1998. + #include "PatchLev.h"
  1999. +         fprintf (stderr, "%s version %s-atariST Patchlevel %s",
  2000. +          language_string, version_string, PatchLevel);
  2001. + #else
  2002.         fprintf (stderr, "%s version %s", language_string, version_string);
  2003. + #endif
  2004.   #ifdef TARGET_VERSION
  2005.         TARGET_VERSION;
  2006.   #endif
  2007. ***************
  2008. *** 3011,3016 ****
  2009. --- 3110,3117 ----
  2010.   
  2011.     compile_file (filename);
  2012.   
  2013. + #if (!(defined(atarist) || defined(atariminix)))
  2014. + #if (!(defined(CROSSHPUX)))
  2015.   #ifndef VMS
  2016.     if (flag_print_mem)
  2017.       {
  2018. ***************
  2019. *** 3027,3032 ****
  2020. --- 3128,3135 ----
  2021.   #endif /* not USG */
  2022.       }
  2023.   #endif /* not VMS */
  2024. + #endif
  2025. + #endif
  2026.   
  2027.     if (errorcount)
  2028.       exit (FATAL_EXIT_CODE);
  2029. ***************
  2030. *** 3138,3140 ****
  2031. --- 3241,3274 ----
  2032.   
  2033.     fprintf (stderr, "\n");
  2034.   }
  2035. + 
  2036. + #ifdef atarist
  2037. + void atari_output_filename(file, filename)
  2038. + FILE *file;
  2039. + char *filename;
  2040. + {
  2041. +     if( (!file) || (!filename) ) return;
  2042. +     for(; *filename; filename++)
  2043. +     {
  2044. +     if(*filename == '\\') putc('\\', file);
  2045. +     putc(*filename, file);
  2046. +     }
  2047. + }
  2048. + 
  2049. + #include <string.h>
  2050. + 
  2051. + char *atari_filename_nondirectory(p)
  2052. + char *p;
  2053. + {
  2054. +     char *s;
  2055. +     
  2056. +     for(s = p + strlen(p); s != p; --s)
  2057. +     {
  2058. +     if((*s == '/') || (*s == '\\'))
  2059. +         break;
  2060. +     }
  2061. +     
  2062. +     return (s == p) ? p : s+1;
  2063. + }
  2064. + 
  2065. + #endif
  2066.